module Sala where

type SalaID	=	Int
type Nazwa 	= String
type Rows = Int
type Cols = Int

class ObjectSalas o where
	objectSala	::	SalaID	->	Nazwa -> 	Rows	->	Cols	-> o
	getRowCount	::	o	-> 	Rows
	getColsCount	::	o	->	Cols
	getSalaID	::	o	->	SalaID
	getSalaName	::	o	->	Nazwa
	
data ObjectSala = SaKin SalaID Nazwa Rows Cols deriving Show

instance ObjectSalas ObjectSala where
	objectSala i name row as = SaKin i name row as
	getSalaID (SaKin i name row as) = i
	getSalaName (SaKin i name row as) = name
	getRowCount (SaKin i name row as) = row
	getColsCount (SaKin i name row as) = as
